home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / slotmc / slot7.bas < prev    next >
BASIC Source File  |  1991-10-18  |  4KB  |  92 lines
  1. 10000 :WIDTH 80,25:CLS 1:CLS 0:CLEAR,,8192:DEFINT A-Z:P=0:SCREEN@0:CLS:LOAD@"a:slot.tif":DIM NA$(25),NB$(25),NC$(25):SC=100
  2. 10090 CLS 1
  3. 10100 FOR I=1 TO 9:
  4. 10200 :READ A$(I):NEXT:READ NA$,NB$,NC$
  5. 10210 LOAD@"m:slot.tif"
  6. 10300 '===================くるくる回す
  7. 10390 LOCATE 13,20:PRINT USING " coin:#####";SC
  8. 10400 LOCATE 52,9:PRINT"PUSH SPACE KEY!"
  9. 10500 A$=INKEY$:IF A$=" " OR A$="  " THEN LOCATE 52,9:PRINT"               ":GOTO 10600 ELSE 10400
  10. 10600 GOSUB 12900:GOTO 10800
  11. 10700  '============================== その２
  12. 10800 FOR I=1 TO 25:
  13. 10900 A$=INKEY$:IF A$=" " OR A$="  " THEN 12700 
  14. 11000 ND$=MID$(NA$,I,I+2)
  15. 11100 NE$=MID$(NB$,I,I+2)
  16. 11200 NF$=MID$(NC$,I,I+2)
  17. 11300 FOR J=1 TO 3 
  18. 11400 IF P>0 THEN 11500 ELSE D$(J)=KMID$(ND$,J,1):D(J)=VAL(D$(J))
  19. 11500 IF P>1 THEN 11600 ELSE E$(J)=KMID$(NE$,J,1):E(J)=VAL(E$(J))
  20. 11600 F$(J)=KMID$(NF$,J,1):F(J)=VAL(F$(J))
  21. 11700 IF P>0 THEN 12000 ELSE LOCATE 14, 7:PRINT A$(D(1)):
  22. 11800 IF P>0 THEN 12000 ELSE LOCATE 14,11:PRINT A$(D(2)):
  23. 11900 IF P>0 THEN 12000 ELSE LOCATE 14,15:PRINT A$(D(3)):
  24. 12000 IF P>1 THEN 12300 ELSE LOCATE 23,4+3*(1-1)+2+1:PRINT A$(E(1)):
  25. 12100 IF P>1 THEN 12300 ELSE LOCATE 23,4+3*(2-1)+2+2:PRINT A$(E(2)):
  26. 12200 IF P>1 THEN 12300 ELSE LOCATE 23,4+3*(3-1)+2+3:PRINT A$(E(3)):
  27. 12300 LOCATE 33,4+3*(1-1)+3:PRINT A$(F(1))
  28. 12400 LOCATE 33,4+3*(2-1)+4:PRINT A$(F(2))
  29. 12500 LOCATE 33,4+3*(3-1)+5:PRINT A$(F(3)):NEXT
  30. 12600 IF I>24 THEN GOTO 10800 ELSE FOR X=0 TO 3900:NEXT :NEXT :GOTO 10800
  31. 12700 '====================================================
  32. 12800 P=P+1:IF P=3 THEN *HAN ELSE 12600
  33. 12900 '============== コインちゃんをスロットマシーンの中にいれるよーん
  34. 13000 LOCATE 52,4
  35. 13100 LOCATE 52:PRINT"何枚賭けますか？:>";
  36. 13200 CO$=INKEY$:IF CO$="" THEN 13200 ELSE 13300
  37. 13300 LOCATE 72:PRINT CO$
  38. 13400 CO=VAL(CO$):IF CO>3 THEN LOCATE 52,5:PRINT"３枚までだよう      ":GOTO 13100
  39. 13500 CO=CO:IF CO=0 AND CO$="0" THEN LOCATE 52,5:PRINT"せこい手はやめようね":GOTO 13100 ELSE 13600:
  40. 13600 SC=SC-CO:LOCATE 13,20:PRINT USING " coin:#####";SC:IF CO>0 THEN SYMBOL(43,205),"１",2,2,4
  41. 13700 IF CO>1 THEN SYMBOL(28,152),"２",2!,1!,3
  42. 13800 IF CO>1 THEN SYMBOL(28,260),"２",2!,1!,3
  43. 13900 IF CO>2 THEN PLAY"@12V13O4L4C":SYMBOL(30,88),"３",2,2,6
  44. 14000 IF CO>2 THEN SYMBOL(30,307),"３",2,2,6
  45. 14100 RETURN
  46. 14200 '=======================判定だっぴょーん===================
  47. 14300 *HAN
  48. 14400 '=======================COIN 3枚だったらあ？ ==================
  49. 14500 IF CO<3 THEN 15100
  50. 14600 IF D(1)=E(2) AND E(2)=F(3) THEN S=3:GOSUB *文字判定
  51. 14700 IF F(3)=E(2) AND E(2)=F(1) THEN S=1:GOSUB *文字判定
  52. 14800 IF D(1)=E(2) THEN M=1:GOSUB *文字判定2
  53. 14900 IF D(3)=E(2) THEN M=3:GOSUB *文字判定2
  54. 15000 '=======================COIN 2枚だったらあ？ ==================
  55. 15100 IF CO<2 THEN 15700
  56. 15200 IF D(1)=E(1) AND E(1)=F(1) THEN S=1:GOSUB *文字判定
  57. 15300 IF D(3)=E(3) AND E(3)=F(1) THEN S=1:GOSUB *文字判定
  58. 15400 IF D(1)=E(1) THEN M=1:GOSUB *文字判定2 
  59. 15500 IF D(3)=E(3) THEN M=3:GOSUB *文字判定2 
  60. 15600 '=======================COIN 1枚だったらあ？ ==================
  61. 15700 IF D(2)=E(2) AND E(2)=F(2) THEN S=2:GOSUB *文字判定
  62. 15800 IF D(2)=E(2) THEN M=1:GOSUB *文字判定2
  63. 15801 '========================何にも揃ってない・・・・
  64. 15802 P=0:LOCATE 54,12:PRINT"               ":GOTO 10210
  65. 15900 '======================== 噂の文字判定 ========================
  66. 16000 *文字判定
  67. 16100 LOCATE 54,12:PRINT"Very good!"
  68. 16200 FOR I=1 TO 9
  69. 16300 IF A$(D(S))=A$(I) THEN 16400 ELSE NEXT
  70. 16400 IF I=1 THEN SC=SC+25
  71. 16500 IF I=2 THEN SC=SC+30
  72. 16600 IF I=3 THEN SC=SC+45
  73. 16700 IF I=4 THEN SC=SC+60
  74. 16800 IF I=5 THEN SC=SC+72
  75. 16900 IF I=6 THEN SC=SC+100
  76. 17000 IF I=7 THEN SC=SC+17
  77. 17100 IF I=8 THEN SC=SC+15
  78. 17200 IF I=9 THEN SC=SC+8
  79. 17300 RETURN
  80. 17400 '========================噂の文字判定2
  81. 17500 *文字判定2
  82. 17600 IF I=9 THEN SC=SC+5
  83. 17700 IF I=6  THEN 17800 ELSE RETURN
  84. 17800 FOR X=1 TO 3
  85. 17900 IF F(M)=9 THEN SC=SC+150
  86. 18000 RETURN
  87. 18001 '======================= ＤＡＴＡＳ  
  88. 18100 DATA Ｊ,Ｑ,Ｋ,Ａ,Ｂ,７,★,○,＄
  89. 18200 DATA 1957235434235483135795637
  90. 18300 DATA 2648791567135975375438416
  91. 18400 DATA 8426716875348642637549713
  92.